﻿Public Class CodFisc
  Private codFiscale As String = ""
  Private Shared codiciMese(,) As String = _
     {{"Gennaio", "A"}, {"Febbraio", "B"}, _
     {"Marzo", "C"}, {"Aprile", "D"}, _
     {"Maggio", "E"}, {"Giugno", "H"}, _
     {"Luglio", "L"}, {"Agosto", "M"}, _
     {"Settembre", "P"}, {"Ottobre", "R"}, _
     {"Novembre", "S"}, {"Dicembre", "T"}}
  Shared Sub stampaTabellaCodiciMese()
    For i As Integer = 0 To 11
      Console.WriteLine(codiciMese(i, 1) & _
         " = " & codiciMese(i, 0))
    Next
    Console.ReadLine()
  End Sub
  Shared Function cercaMese(ByVal codice _
         As String) As String
    For i As Integer = 0 To 11
      If codiciMese(i, 1) = codice Then
        Return codiciMese(i, 0)
      End If
    Next
    Return "< Codice errato ! >"
  End Function
End Class
